home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / graphsys.zip / DEMOSYS.PAS < prev    next >
Pascal/Delphi Source File  |  1992-02-26  |  3KB  |  91 lines
  1.                                                                               {
  2.                        G  R  /\  P ├┤   S  Y  S   VER 1.00
  3.  
  4.  
  5.   IF YOU USE THIS PROGRAM SEND $5.00 TO:
  6.                    37 BEARPAW #37B
  7.                    IRVINE, CA. 92714
  8.                    UNITED STATES
  9.  
  10.   THIS UNIT ALLOWS YOU TO LOAD IMAGES CONVERTED BY CONVERT.EXE. CONVERT.EXE
  11.   CONVERTS BSAVE IMAGE FILES TO A FILE FORMAT MUCH FASTER TO LOAD. PICTOR,
  12.   INCLUDED IN GRASP, WILL SAVE IN BSAVE FORMAT. ANY FILE FORMAT THAT HAS
  13.   THIS STRUCTURE WILL WORK:
  14.   1-7: BYTE: GAP, HEADER, OR X-Y LOCATION;
  15.   8-64007: BYTE(S): PIXEL COLOR(S);
  16.  
  17.   THE PALETTE FILE STRUCTURE:
  18.   1-255
  19.   RED: BYTE
  20.   GREEN: BYTE
  21.   BLUE: BYTE
  22.  
  23.   CONVERT ONLY SAVES 0,0 TO 318, 198 BECAUSE OF THE MEMORY CONSTRAINTS.
  24.           BY REGISTERING, YOU WILL GET THE ANNOYING 12 SECOND MESSAGE
  25.           ELEMINATED WHEN THE UNIT IS LOADED. IF YOU HAVE ANY COMMENTS,
  26.           QUESTIONS, OR WISH TO REGISTER, PLEASE WRITE TO THE ADDRESS ABOVE.
  27.  
  28. COMMANDS:
  29.  
  30.    KILLMEM              - MUST CALL AT THE END OF THE PROGRAM
  31.                           TO DESTROY THE MEMORY POINTER!
  32.  
  33.    DISPLAYIMG(FILENAME) - USED TO DISPLAY IMAGE
  34.  
  35.    LOADIMG(FILENAME)    - MUST CALL BEFORE DISPLAYING THE IMAGE!
  36.  
  37.    LOADPAL(FILENAME)    - USED TO ADJUST THE CURRENT PALETTE TO
  38.                           MATCH THE IMAGE'S PALETTE
  39.  
  40.  * SAVEIMG(FILENAME)    - SAVES A IMAGE IN THE QUICK FILE FORMAT
  41.  
  42.  
  43.  * = DISABLED IN UNREGISTERED VERSION
  44.  
  45.                      P .   C .    S  O  F  T  \/\/  /\  R  ≡                   }
  46. {----------------------------------------------------------------------------}
  47.                                 {MAIN CODE}
  48. {----------------------------------------------------------------------------}
  49. {$M 4000,0,655360}                              {WHAT EVER WORKS BEST}
  50. USES GRAPHSYS, GRAPH,CRT;
  51. VAR
  52. DRIVER, MODE, TESTDRIVER,
  53.   ERRCODE  : INTEGER;
  54. {$F+}
  55. FUNCTION TESTDETECT : INTEGER;
  56. BEGIN
  57. TESTDETECT := 1;
  58. END;
  59. {$F-}
  60. BEGIN                                           {BASIC CODE TO INIT GRAPHICS}
  61. TESTDRIVER :=                                   {DRIVER NOT INCLUDED WITH TP}
  62. INSTALLUSERDRIVER('VGA256', @TESTDETECT);
  63. IF GRAPHRESULT <> GROK THEN
  64. BEGIN
  65. WRITELN('ERROR INSTALLING GRAPHICS DRIVER');
  66. HALT(1);
  67. END;
  68. DRIVER := DETECT;
  69. INITGRAPH(DRIVER, MODE, '');
  70. ERRCODE := GRAPHRESULT;
  71. IF ERRCODE <> GROK THEN
  72. BEGIN
  73. WRITELN('ERROR DURING INIT: ', ERRCODE);
  74. HALT(1);
  75. END;
  76. BEGIN
  77. LOADIMG('DEMO.IMG'); {<-LOADS IMAGES CREATED WITH CONVERT.EXE
  78.                         IMAGE MUST BE A BSAVE IMAGE ORIGINALLY OR A PIXEL BY
  79.                         PIXEL LIST IN A FILE.}
  80. DISPLAYIMG;          {<-DISPLAYS IMAGE AT 0,0 WITH CURRENT PALETTE}
  81. LOADPAL('DEMO.PAL'); {<-THIS ADJUSTS THE PALETTE TO MATCH THE PICTURE}
  82.                      {  FILE STRUCTURE: RED, GREEN, BLUE: BYTE;}
  83. KILLMEM;             {<-MUST CALL TO DESTROY MEMORY CREATED WHEN UNIT IS
  84.                         LOADED!!!}
  85. REPEAT UNTIL KEYPRESSED;
  86. CLOSEGRAPH;
  87. END;
  88. END.
  89.  
  90.  
  91.